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MODULE RDHEDR ( 


IDENT = 


~~ 


BEGIN 


' 
ROAR RAARRARAA ARERR AEE AREA EERE EET EEE EEE EEE EEE EEA 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDAN HT 


sssseseses 
—o 


oocooo 
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; : 
a 
; 5 i ° 
ee 1 : 
; 8 1 : 
; 9 1 + 3 
3 10 1 * : 
ie! 3 Rea: 
Bye ait peal 
: 15 001 1 !e CE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
; 1 001 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ’ 
: 1 01 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ‘ 
5 18 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
3 it ! Me TRANSFERRED. * ‘ 
Py 't 5 ° 
; 1 00 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | ‘ 
; ¢ 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
: 33 99 ie CORPORATION. & | 
Py :* * ° 
: 25 00 1 !®* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * ‘ 
; ° 00 1 : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : ° 
; 88 0098 | is : | 
: 9 00 1 SRR RRR ARE AAA EE AERA ERE REAR AERA AAA RARAAAEERAAAERRAREREEEE j P 
; 0 00 1 : 
a: ee i 4 
; 5 00 § i FACILITY: FIIACP Structure Level 2 | : 
; 3 0035 1 | ABSTRACT: | 3 
: 7 it fA 1 i This routine reads the desired file header, checks it for : 
3 ; itt : validity and correctness, and returns its address. | : 
i 40 9040 1 | ENVIRONMENT : : 
; $§ 984 1 STARLET operating system, including privileged system services : 
s 4 0043 1! and internal exec routines. : 
i 44 0044 1 | | ; 
3 «45 046 - : 
roa oce | ; 
; $8 BS ' , AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Dec-1976 22:00 : 
Py . } ° 
; “9 Bey } } MODIFIED BY: : 
; 5 032 1 v04-001 CDS0008 Christian D. Saether 15-Sep-1984 : 
3 ¢? O34 ! seve and restore FILE_HEADER when mapping the index : 
; ; e. : 
: 5 25 3 3 : 
; 4 B26 1! v03-008 ¢DS0007 Christian D. Saether 30-Aug-1984 3 
ae. 0057 1! Don't update the FILE_HEADER cell if STS_LEAVE_FILEHDR : 
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is set. 


CDS0006 Christian D. Saether 64-Aug-1984 
Gee, we really — o check the file number and 
sequence number also if we don't do the full 
check_header call. 


CdS0005 Christian D. Saether 9-July-1984 
Perform header checks if filenum = 0 (deleted heeder). 


CDS0004 Christian D. Saether 2-July-1984 
Only per tere header checks if the buffer was read from 
the disk, pointy to avoid checksums on buffers already 
in the cache which got checksummed on the way in. 


ACG0408 Andrew C. Goldstein 21-Mar-1984 11:59 
Fix RVN on back Link when used for lock basis; 
interface change to CHECK_HEADER2 


Cd$0003 Christian D. Saether 5-Mar-1984 
Validate lockbasis for headers. 


CDS0002 Christian D0. Saether 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


CdS0001 Christian D. Saether 20-Sep-1985 
Use new MAP_IDX routine instead of calling MAP_VBN 
directly to avoid duplication of header serialTzation 
ogic. 


ACG0156 Andrew C. Goldstein, 12-Mar-1980 15:23 
Fix header invalidation bug 
ACGO120 Andrew C. Goldstein, 16-Jan-1980 21:18 


Reorder header consistency checking 


ACG0083 Andrew C. Goldstein, 15-Nov-1979 0:59 
Invalidate file header if bad 


ACG0003 Andrew C. Goldstein, 10-Nov-1978 18:55 


B0101 
Add multi-volume support 


ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:00 


Previous revision history moved to CF11B.SRCJF11B.REV 
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LIBRARY ‘SYSS$LIBRARY:L B,t52': 
REQUIRE ‘SRC$:FCPDEF .B352'; 
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GLOBAL ROUTINE READ_HEADER (FILE_ID, FCB, REALBASIS_A) : L_NORM = 
144 


: FUNCTIONAL DESCRIPTION: 


3 
) 


SS § 
333 
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= mm 
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This routine reads the desired file header, checks it for 
validity and correctness, and returns its address. 


i CALLING SEQUENCE: 
READ_HEADER (ARG1, ARG2, ARG3) 


! INPUT PARAMETERS: 

ARG1: address of file ID or 0 

ARG2: FCB address or 0 if none 

ARGS: (optional) address of cell to store real lockbasis on mismatch 


i 
1 
1 
1 
' 
! 
! 
! 
| 
' 
! 
' 
! 
! IMPLICIT INPUTS: 
CURRENT_VCB contains address of VCB in process 
q 
7 
! 
! 
1 
i] 
! 
! 
' 
' 
1 
! 
! 
' 
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i OUTPUT PARAMETERS: 
NONE 


HEADER_LBN contains LBN of header read 
FILE_HEADER contains address of header buffer 


i ROUTINE VALUE: 
address of file header 


i SIDE EFFECTS: 


| 

| 

i IMPLICIT OUTPUTS: | 
| 

ndvx file window may be turned | 
| 

| 

| 

| 


FILE_ID : REF BBLOCK, ! file ID arg 
§CB : REF BBLOCK; ! FCB arg 
LOCAL 
NOUPDF ILHDR : INITIAL (0), ! flag to not update FILE_HEADER 
LCKF IDNUM : WORD, 
LCKF IDNMX : BYTE, 
STATUS, ' general status value 
VBN, ! VBN of header 
LBN ' LBN of header 
HEADER : REF BBLOCK, ' address of header block 
FID : REF BBLOCK; ' local file ID pointer 
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BIND_ COMMON; 


EXTERNAL ROUTINE 
WRONG _LOCKBASIS : 

SWITCR_VOLUME 

MAP_IDR 
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L_NORM NOVALUE , - 
NORM, ; Switch to correct volume 
4, ! map virtual to logical for index file | 
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READ BLOCK : LLNORM, 

CHECR_HEADER2 : L-NORM, 

INVALTDATE : LINORM; 

IF TESTBITSC (STSFLGS CSTS_LEAVE_F ILEHDRI) 
NOUPDFSLHDR = 1; 


Switch context to the volume of the specified RVN. | 


! read a disk block 
sheet header for correctness 
nvalidate block buffer 


PEAS" 


WN" OOONOUS 


SWITCH_VOLUME (IF .FCB 
THEN . 
ELSE 


! Get the LBN of the file header. If an FCB is supplied, it contains 
the LBN. If not, derive it from the file number. 


a at tt a a — = a a ss = 1 4 1 2 1 
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64 

é 

8 

9 

0 

4 2 LBN = 

5 BEG! 

6 IF .FCB NEQ 0 

THEN .FCBCFCBSL_HDLBNJ 

8 ELSE 

; BEGIN 

1 IDXLBN, 

: MP; 

4 = .FILE_IDCFIDSW_NUM); 

5 IF .CURRENT-VCBLVCB$V_EXTF ID) 

§ THEN YENC16.9> = .FILE_IDCFIOSB_NMX); 

IF .VBN EQL 0 THEN ERR EXIT (SS$_NOSUCHFILE); 

8 VBN = .VBN + .CURRENT_QCBLVCB$B_IBMAPSIZEJ + .CURRENT_VCBLVCB$W_CLUSTERI*4; 
0 ER w 


Save and restore FILE_HEAD hen went the index file. This is 
because FILE_HEADER iS used in ERR_CLEANUP to determine whether to 
attempt re-reading the file header using the fib and primary_fcb. 


TEMP = .FILE_HEADER; 
IDXLBN = MAP"IDX (.VBN); 
FILE HEADER = . TEMP; 

. 1DXCBN 

END 
END; 


IF .LBN EQL -1 THEN ERR_EXIT (SS$_NOSUCHFILE); 
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! Now read the header and check it for correctness. If a file ID 

! was supplied, use the file number and file sequence number from 

! it; else use the arguments. If the file operation is being done on a 
spooled device, the file must be marked as spooled. | 
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HEADER = READ_BLOCK (.LBN, 1, HEADER_TYPE); 


® Jo-se 1984 VAX-11 Bliss-32 V4.0-742 
1 ereen tae PUBahs | NTE dnehAstencch TiS, che aepnepR.e32:0°"" 2 
IF FILEID NEO 0 
FID © .FILE_ID 
ELSE 
FID = FCBCFCBSW_F IDI; 
If .STSFLGS CSTS_DISKREAD) 
THEN 


BEGIN 
te ~~? (STATUS = CHECK_HEADER2 (.HEADER, .FID, USER_STATUS)) 


MEUM OOD NAU SUT 


SU 4 
TE (HEADER); 


N 
IF -HEADERCEH2SY FID nu) EOL 

AND .HEADER Fase Fp 

OR (. HEADER FHeSW_ FDS SE 24 aT CF 1ID$W_SEQ)) 


oe oe oo oe 
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EN 
ERR_EXIT (SS$_NOSUCHF ILE); 


4 
4 
48 If .HEADERCFH2$W_FID_NUM) NEQ . gio CF ID$W_NUM] 
OR .HEADERCFA2SB_FID_NMX) NEQ .FID CF TDSB. NMX J 
BEGIN 
INVALIDATE (.HEADE 
ERR EXIT (SS$_FILE 
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END; 
IF .CLEANUP_FLA FaSsh-Sp Spoon 
AND wor »HEADERCFH 
AND ( HEADERCE HES ay NURS GTRU. CURRENT_VCBCVCB$B_RESFILES) 

OR vee vtB$v_E 

Ft RECABER FH2$B_ FiD. NK NEQ 0) 
THEN ERR_EXIT (SS$_NOSUCHF ILE); 
: Validate that we have the correct lock basis for this header. 
. 
! 

LCKFIDNUM = .(LB_BASIS (.CURR_LCKINDX])<0,16>; 
LCKFIDNMX = .(LBBASIS C.CURRTLCKIND x1) <16, 8>: | 
IF .HEADER CFH2$W_SEG_NUM) EQL 0 | 
THEN 


att 


BEGIN 
IF .LCKFIDNUM NEQ .HEADER CFH2$W FID 
CFA2SBF 1D _NMX) 
| 


_ ~LCKFIDNMX NEQ .HEADER 
BEGIN 
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6 if -FCB NEQ 0 
, BUG_CHECK (XQPERR, ‘wrong lock basis with fcb present’); 
7 ' We came in for what should be a primary header, and yet have the wrong 
7 ' Lock basis. Something must be sour with the file structure so exit. 
7 ! This type of situation has probably already been caught by earlier checks 
7 ! in this routine, but we should cover ourselves here in case something 
f slips by. 
4 : 
7 WRONG bocreasts (HEADER); 
: ERR LERIT (SS$_NOSUCHF ILE); 

| 


! This is an extension header. 

! In general, we are only going to allow access to extension headers 

' as a result of finding it by following Links from the or emery header. 
! If the lock basis is wrong. we are trying to go at it directly. 

' However, we will handle the case of accessing an extension header 
when the file is already accessed (which means an fcb will have been 
1 

' 

! 

' 


found). In that case, read_header is called with the optional 
! realbasis_a argument which means the caller is prepared to release 


oo 
QS SSS RNS SaNonun—ooe 


' the incorrect serialization lock already acquired, acquire the correct 
' Lock, and read the header again. 


BEGIN 
IF .LCKFIDNUM NEQ .HEADER CFH2$W 
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$ Bt F IDNUMJ 
OR .LCKFIDNMX NEQ .HEADER CFA2SB_BK_F IDNMX) 

1 BEGIN 

¢ WRONG_LOCKBASIS (.HEADER); 

¢ IF .FCB EQL 0 OR ACTUALCOUNT LSSU 3 

ERR_EXIT (SS$_NOSUCHF ILE); 

08 ! There's a bug in the file system which screws up the RVN. 
09 ! We should get this from the FCB instead. 

1 : Fix this when we start storing the primary FCB in all extension FCBs. 
' ! 

18 (.REALBASIS_A)<0,16> = .HEADER CFH2$W_BK_FIDNUM); 

14 (;REALBASIS~A)<16,8> = .HEADER [FHO$B_BK_FIDNMX]; 

15 (. REALBASIS-A)<24,8> = .HEADER CFH2$B BK _FIDRVNI; 

1 Y_RVN (T.REALBASIS_A)<24,8>, .CURRENT_RVN); 

18 END; 

0 HEADER_LBN = .LBN; ! return LBN of header 
1 1F NOT .NOUPDF ILHDR 

: FILE_HEADER = .HEADER; ' and address 

5 4 RETURN .READER; ' and the header itself 


iH B 
epwepe 16-Sep-1 138% 9 Oh} VAX-11 Bliss-32 V4.0-742 
1 14-Sep-1984 16: DISKSVMSMASTER: CF11X.SRCIRDHEDR.B32; 529 
' end 


; 336 1325 1 END; of routine READ_HEADER 


-TITLE ROHEDR 
IDENT \V04-001\ 
EX 


“EXTRN READ BCOCK, che PREADER? 
eEXTRN READ BOCK. BUGS_ROPERR 


-PSECT SCODES,NOWRT,2 


003¢ 9909 SENTRY READ HEADER, Save R2,R3,R4,R5 
33 D4 0000 CLAL " UPBF I 
03 AG AA g ES 9004 BBCC Wee SOBASE) 1$ 
33 1D 909 MOVL ni, j, NOpPDF LHR 
0 08 AC OD 0 1$: MOVL 
0 01 BEQL pce 
7E 28 Ad 3¢ 0001 MOVZWL 4O(RO), (SP) 
08 11 0001 BRB 3$ 
50 6 ac 00 0018 2%: MOVL FILE 1D, RO 
E 4 Ad 3C 0001 MOVZWL 4(ROJ, -(SP) 
00006 cr 01 FB 00020 3s CALLS #1, SWITCH_VOLUME 
0 08 AC D0 000 MOVL FCB, RO 
06 13 00029 BEQL  4$ 
54 34 AO DO 00028 MOVL  52(RO), LBN 
3F 11 0002F BRB és 
52 04 A b0 00031 4$: MOVL  FILE_ID re 
31 62 3C 00035 MOVZWL (R2)> VBN 
0 98 AA DO 00038 MOVL  -104(BASE), RO 
06 0B AO 05 €1 0003Cc BBC #5, 11(RO). 
51 08 10 05 A2 F 0041 INSV  5(R2), #16, #8, VBN 
1 05 00047 5$ TSTL VBN 
3 13 00049 BEQL 11$ 
50 98 AA po 0048 MOVL =104(BASE), RO 
5 38 «=6A0 9A 0004F MOVZBL 56(RO), R2 
5 51 £0 0053 ADDL2 BN, Re 
5 3C Ag C 00056 MOVZWL 60¢R0) RO 
31 624 DE 003A MOVAL (R2)CROJ, VBN 
2 04 AA D 05 VL. 4(BASE), TEMP 
51 DD 0006 PUSHL VBN 
00006 CF 1 F 64 CALLS #1, MAP_IDX 
04 AA ; D 9 MOVL TEMP, 4TBASE) 
54 D MOVL §IDXLBN, LBN 
FFFFFFFFE © 8F 4 01 0 6$ CMPL LEN, #1 
45 13 0007 BEQL 1$ 
7E 01 7D 00079 vO #1, =(SP) 
4 Dd 0007¢ PUSHL LBN 
00006 cf 03 F 43 CALLS #3, READ BLOCK 
2 D MOVL RO, HEADER 
04 AC p TSTL Fite. 
06 BEQL 87 
53 04 at D MOVL FILE_ID, FID 
: 1 F BRB BS 
53 08 Ac 4 ci 1 7$ ADDL3 # F D. 
1¢ A6 AA «ED 00096 8S BLBC 3=—._s« = 90 Steases. 
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VAX-11 Blis 


#3, CHECK _HEADER2 
STATUS, 12$ 
TATUS, #4 


> ag 
Ay INVALIDATE 


8 (HEADER) 

(HEADER) 
HEADER), 2(FID) 
EADER), (FID) 
HEADER), 5(FID) 


xe Qe Ss 
Ss" s°S* wn 


ER 
INVALIDATE 
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<BUGS$_XQPERR! 4> 


HEAD 

#1, WRONG_LOCKBASIS 
KFIDNUM, 66(HEADER) 
CKFIDNMX, 71 (HEADER) 


HEADER 
#1, WRONG_LOCKBASIS 


§ Page 
DISKSVMSMAST IRDHEDR.B32;2 (2) | 


RO 
ASESCROJ, LCKFIDNUM 
(BASESCROJ, LCKFIDNMX 
ADER) 


FIDNUM, 8(HEADER) 
KFIDNMX, 13(HEADER) 
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1231 
1232 
1233 
1237 
1238 
1241 
1242 
1247 


1248 
1249 


18-50 Sep-1 VAX-11 Bliss-32 V4,0-742 
1 at 93 83: §3 DISKSVMSMASTER:CF11X.SRCIRDHEDR. B32; p29 
Ag 148 TSTL 4 
14 BEQL 
f 1 CMPB oA), 
1E 001 BGEQU 238 
F af : 21$: a 20 
A2 8 15A 228: MOV SO CNe ADEN} - @REALBASIS_A 
Ae Ff 15F INSV (HEADER), #16, #8, OREALBASIS_A 
A F 166 INSV 7O( HEADER), #24, #8, aR EALBASIS_A 
A p 190 MOVL § REALBASIS_A, RO 
A 171 TSTB 3a ) 
05 1 1% BNEQ 3 
AA 9 176 MOVB - trey th ra 
A 34 17B 23%: MOVL G5 ALBAS S_A, RO 
A 1 0017F CMPB (RO), #1” 
08 1 4 3 BNEQ 
AA D0 185 TSTL one tee? 
03 12 001 BNEQ 4$ 
AO 94 001BA CLRB 0) 
B0 54 4 0018D 24$ MOVL LBN 
04 55 £8 00191 BLBS LOUSDFIEMBR “es 
04 AA 2§ dO Bales MOVL HEADER, 4( 
50 52 D0 00198 25$ MOVL HEADER, 
04 00198 RET 
; Routine Size: 412 bytes, Routine Base: $CODE$ + 0000 
: 3 1326 1 
3 8 1352 1 END 
; 339 1328 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 412 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eoceceecoe Symbols eeeccecs Pages Processing 
: File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 38 0 1000 00:01.9 
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COMMAND QUALIFIERS 
BLISS/CHECK=(F ti INITIAL ,OPTIMIZE)/LIS=LIS$:RDHEDR/OBJ=OBJ$:RDHEDR MSRC$:RDHEDR/UPDATE=(ENHS$:RDHEDR) 
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